home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 23 / 023.d81 / return stripper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 60 printchr$(147)spc(12)chr$(17)"[210][197][212][213][210][206][160][211][212][210][201][208][208][197][210]"
  2. 65 printchr$(17)spc(7)"([195]) 1985 [211]tephen [211]. [204]evin"
  3. 70 printchr$(14)chr$(17)"[212]his program removes extra [[210][197][212][213][210][206]]'s"
  4. 80 print"from downloaded sequential files for"
  5. 90 print"further processing by easyscript or"
  6. 100 print"other word processors."
  7. 110 printchr$(17)"[197]nter the filename of the input (down-"
  8. 115 print"loaded) and the output files.";
  9. 120 print"  [212]he output may also be directed to the"
  10. 140 print"printer in the downloaded format."
  11. 150 open15,8,15
  12. 160 input"input file name   [157][157][157]";n$
  13. 170 open4,8,4,n$+",s,r":input#15,a,b$,c,d
  14. 175 ifathenprinta;b$;c;d:close4:goto160
  15. 180 input"output file name   [157][157][157]";n$
  16. 190 open5,8,5,n$+",s,w":input#15,a,b$,c,d
  17. 195 ifathenprinta;b$;c;d:close5:goto180
  18. 200 input"output to printer, too?  y/n   n[157][157][157]";p$:p$=left$(p$,1)
  19. 210 ifp$<>"y"andp$<>"n"then200
  20. 220 ifp$="y"thenclose6:open6,4,7
  21. 230 printchr$(17)chr$(18)"[208]ress [198]7 key to abort."chr$(146)chr$(17)chr$(17)
  22. 240 b=0
  23. 250 get#4,a$:s=st:x$=right$(x$,2)+a$
  24. 260 getl$:ifl$=chr$(136)then340
  25. 270 ifp$="y"thenprint#6,a$;
  26. 280 ifb=1andleft$(x$,1)<>" "thenprint#5," ";:print" ";
  27. 290 ifa$<>chr$(13)thenprint#5,a$;:printa$;:b=0:goto330
  28. 300 b=b+1:ifb=2thenprint#5,a$;:printa$a$;:goto330
  29. 310 ifb=1then330
  30. 320 print#5,a$;:printa$;
  31. 330 ifs=0then250
  32. 340 ifp$="y"thenprint#6:close6
  33. 350 close4:print#5:close5:close15:load"hello connect",8
  34.